home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 1997
/
HAM Radio 1997.iso
/
vcls
/
frmset2
/
page2.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-04-08
|
1KB
|
67 lines
unit Page2;
interface
uses
Classes, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;
type
TfPage2 = class(TForm)
Page2: TLabel;
procedure FormCreate(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormHide(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
fPage2: TfPage2;
implementation
{$R *.DFM}
procedure TfPage2.FormCreate(Sender: TObject);
begin
showmessage('Page 2: Create');
end;
procedure TfPage2.FormActivate(Sender: TObject);
begin
showmessage('Page 2: Activate');
end;
procedure TfPage2.FormShow(Sender: TObject);
begin
showmessage('Page 2: Show');
end;
procedure TfPage2.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
showmessage('Page 2: Close Query');
end;
procedure TfPage2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
showmessage('Page 2: Close');
end;
procedure TfPage2.FormHide(Sender: TObject);
begin
showmessage('Page 2: Hide');
end;
procedure TfPage2.FormDestroy(Sender: TObject);
begin
showmessage('Page 2: Destroy');
end;
end.